program exemplo6pg90(input,output);
var m:integer;

procedure proc(x,y,z,a:integer);
    var r:integer;
    begin
       r:=10;
       if x>2+y
       then m:=r+x
       else m:=r+y
    end; 

begin
  write(f(3,m),m)
end.


           
